home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 10 / The PC-Sig Library - Shareware for the IBM PC and Compatibles (PC-SIG)(Tenth Edition Disks 1-2804)(1991).iso / PC_SIGCD / 20 / 9 / DISK2092.ZIP / RBBS-LIT.ZIP / LIT / VIEWINT.LIT < prev    next >
Text File  |  1990-01-13  |  1KB  |  27 lines
  1. *[VIEWINT.LIT]****************************************************************
  2. * Description: Removes support for all internal file views.                  *
  3. * RBBS-PC Level: CPC17.3                                                √ AM *
  4. * Module Affected: RBBSSUB2.BAS                                              *
  5. * Selection Option: VIEWINT = OFF                                            *
  6. * Additional files: None                                                     *
  7. ******************************************************************************
  8. 20148 WasX$ = ZDiskForDos$ + "V" + Ext$ + ".BAT"
  9.       CALL FindIt (WasX$)
  10.       IF NOT ZOK THEN _
  11.          GOTO 20150
  12.       ZGSRAra$(3) = MID$(RIGHT$(ZComPort$,1)+"0",1-ZLocalUser, 1)
  13.       CALL ReadDir (2,1)
  14.       IF EOF(2) THEN _
  15.          ZWasZ$ = ZOutTxt$ : _
  16.          ZGSRAra$(1) = ZFileName$ : _
  17.          ZGSRAra$(2) = ZArcWork$ _
  18.       ELSE ZWasZ$ = WasX$ + " " + ZFileName$ + _
  19.                 " " + ZArcWork$ + " " + ZGSRAra$(3)
  20.       CALL ShellExit (ZWasZ$)
  21.       CALL BufFile (ZArcWork$,WasX)
  22.       RETURN
  23. 20150 CALL QuickTPut1 ("View for "+Ext$+" not implemented") : _
  24.          RETURN
  25.       END SUB
  26.  
  27.